home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / System-Boost / Grafik / AmiCAD / ARexx_english / TextFrame.AmiCAD < prev    next >
Text File  |  1998-06-17  |  1KB  |  47 lines
  1. /* This script creates a  frame around the selected texts. */
  2. /* $VER: CadrerTexte 1.01e (© R.Florac, 13/04/98) */
  3. /* Only normal texts can be used, rotations are not handled */
  4.  
  5. options results
  6.  
  7. signal on error
  8. signal on syntax
  9.  
  10. 'FIRSTSEL'; obj=result
  11. if obj=0 then do
  12.     'MESSAGE("No selected text")'
  13.     exit
  14. end
  15.  
  16. xg=100000; xd = 0; yh = 10000; yb = 0
  17. do while obj>0
  18.     'TYPE('obj')'
  19.     if result ~= 4 then do
  20.     'BLINK('obj')'
  21.     'MESSAGE("Incorrect object type"+CHR(10)+"Only select texts please")'
  22.     exit
  23.     end
  24.     'COORDS('obj')'; coord=result
  25.     PARSE VAR coord x0 ',' y0
  26.     if x0<xg then xg=x0
  27.     if y0>yb then yb=y0
  28.     'WIDTH('obj')'; x0=x0+result
  29.     if x0>xd then xd=x0
  30.     'HEIGHT('obj')'; y0=y0-result
  31.     if y0<yh then yh=y0
  32.     'NEXTSEL('obj')'; obj=result
  33. end
  34. xg=xg-4; xd=xd+6; yh=yh; yb=yb+3
  35. 'SAVEALL(-1):DRAWMODE(1):MARK(DRAW('xg','yh','xd','yh')):MARK(DRAW('xg','yh','xg','yb')):DRAWMODE(2):MARK(DRAW('xd','yh'+1,'xd','yb')):MARK(DRAW('xg'+1,'yb','xd','yb')):MENU("Group")'
  36. exit
  37.  
  38. /* Traitement des erreurs, interruption du programme */
  39. syntax:
  40. erreur=RC
  41. 'MESSAGE("Script TextFrame"+"Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  42. exit
  43.  
  44. error:
  45. 'MESSAGE("Script TextFrame"+"Error in line 'SIGL'")'
  46. exit
  47.